home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue36 / construc / KILLBOB.DPR < prev    next >
Encoding:
Text File  |  1998-06-30  |  1.1 KB  |  36 lines
  1. program KillBob;
  2. {$APPTYPE CONSOLE}
  3. {$I-}
  4. uses
  5.   Windows, Messages;
  6. var
  7.   i: Integer;
  8. begin
  9.   writeln('content-type: text/html');
  10.   writeln;
  11.   writeln('<HTML>');
  12.   writeln('<HEAD>');
  13.   writeln('<TITLE>RobotBob/Kill</TITLE>');
  14.   writeln('</HEAD>');
  15.   writeln('<BODY BACKGROUND="/gif/back.gif">');
  16.   writeln('<FONT FACE="Comic Sans MS"COLOR=000077>');
  17.   writeln('<H1>RobotBob/Kill v1.0</H1>');
  18.   writeln('<HR>');
  19.   writeln('<P>');
  20.   ChDir('cgi-bin');
  21.   writeln('Killing RobotBob/Mail...<BR>');
  22.   for i:=1 to 12 do if FindWindow('TApplication','MailBob') <> 0 then
  23.   begin
  24.     writeln('Killing RobotBob/Mail...<BR>');
  25.     if FindWindow('TApplication','MailBob') <> 0 then
  26.       PostMessage(FindWindow('TApplication','MailBob'),WM_DESTROY,0,0);
  27.     if FindWindow('TApplication','MailBob') <> 0 then
  28.       PostMessage(FindWindow('TApplication','MailBob'),WM_CLOSE,0,0);
  29.     if FindWindow('TApplication','MailBob') <> 0 then
  30.       PostMessage(FindWindow('TApplication','MailBob'),WM_QUIT,0,0)
  31.   end;
  32.   writeln('<P>Killed.');
  33.   writeln('</BODY>');
  34.   writeln('</HTML>')
  35. end.
  36.